assume cs:code
data segment
        db '1975', '1976', '1977', '1978'
        dd 16, 22, 382, 1356
        dw 3, 7, 9, 13
data ends
table segment
        db 4 dup('year summ ne ?? ')
table ends
        
code segment        
start:  mov ax, data
        mov ds, ax
        mov bp, 30h

        
        mov bx, 0
        mov cx, 4
        mov si, 0
        mov di, 0
        
        ;; year
l:      mov ax, word ptr [bx + si + 0]
        mov word ptr [bp + di + 0], ax
        mov ax, word ptr [bx + si + 2]        
        mov word ptr [bp + di + 2], ax

        add di, 16
        add si, 4
        loop l
        
        ;; sal
        mov bx, 16
        mov cx, 4
        mov si, 0
        mov di, 0
m:      mov ax, word ptr[bx + si]
        mov word ptr[bp + di + 5], ax
        add si, 4
        add di, 16
        loop m
        ;; head count
        mov bx, 32
        mov cx, 4
        mov si, 0
        mov di, 0
n:      mov ax, word ptr[bx + si]
        mov word ptr[bp + di + 10], ax
        add si, 2
        add di, 16
        loop n
        
        mov ax, 4c00h
        int 21h
code ends
end start
        
        